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Introducción 


Antes de que un ordenador pueda realizar una tarea, debe 
tener un programa, es decir, un conjunto de instrucciones que 
le explican exactamente lo que deseas que haga. Puedes 
comprar programas en cintas o discos, o teclear aquéllos que 
se publican en revistas o libros, pero al poco tiempo a la 
mayoría de la gente le gusta escribir sus propios programas. 
Una vez que sepas programar, podrás hacer que tu ordenador 
realice todo tipo de cosas para ti. 

Este libro contiene tres programas de juegos, basados en el 
tema de un viaje espacial. Se incluyen versiones para 
Spectrum y para Commodore; debes leer la parte relativa a tu 
ordenador. pues a menudo la instrucción que realiza una 
determinada tarea varía ligeramente según el ordenador 
utilizado. Cada programa se desarrolla paso a paso, de forma 
que puedas ver exactamente cómo está hecho y cómo 
funciona. Al término de cada programa se sugieren unas 
modificaciones que puedes hacer por ti mismo. 

Al final del libro tienes una sección que te muestra cómo 

se pueden juntar los tres programas para producir un juego 
con tres fases. Se da también el listado completo de este 
juego. Hay también un glosario con los términos informáticos 
usados en el libro, para que puedas saber qué significan. 
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Introducción al BASIC 


La mayoría de los programas para ordenadores personales 
están escritos en un lenguaje llamado BASIC. Como cualquier 
otro lenguaje, el BASIC tiene unas reglas que han de 
seguirse para que el programa funcione. Por ejemplo, la 
instrucción de BASIC PRINT escribe información en la 
pantalla, pero todo el texto debe estar metido entre comillas, 
como en la primera línea del programa indicado más abajo. 
Prueba las otras líneas y verás lo que ocurre. Notarás que las 
líneas dos y tres producen resultados muy diferentes; es así 
porque el ordenador trata de forma distinta las expresiones y 
las palabras. Los símbolos aritméticos del BASIC se muestran 
en la nota de la derecha. 


PRINT "FELIZ CUMPLEANOS"” 
PRINT "15*2" 
PRINT 15%*2 


En un programa, el ordenador realiza cada instrucción 
siguiendo un orden lógico; un programa no podría funcionar si 
el ordenador ejecutara cada instrucción tan pronto como ésta 
fuera tecleada. Al dar a cada instrucción un número de línea, 
le decimos al ordenador que la almacene en su memoria 
hasta que el programa sea ejecutado (RUN). Los números de 
línea usualmente van de diez en diez, de forma que las tres 
primeras líneas de un programa suelen ser 10, 20 y 30. El 
ordenador considera cada instrucción según su número de 
línea, y se pueden añadir instrucciones adicionales 
asignándoles números de línea como 15, 25, etc., según 
convenga. Introduce el corto programa indicado abajo. 
Observa que la línea 10 no escribe nada en la pantalla. Ésto 
se debe a que la orden REM se utiliza para comentarios, y el 
ordenador ignora todo lo situado tras ella. 


REM FELICITACION DE CUMPLEANOS" 
20 PRINT “"CUMPLEANOS FELIZ” 
30 PRINT “CUMPLEANOS FELIZ” 
PRINT "TE DESEAMOS TODOS" 
50 PRINT "CUMPLEANOS FELIZ” 
60 PRINT 
PRINT 
809 PRINT 
90 PRINT 
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Algunas cosas sobre tu ordenador 


Antes de empezar a trabajar en un programa, es una buena 
idea experimentar con tu ordenador para conocer el teclado. 
No importa lo que teclees, no puedes producir ningún daño al 
ordenador; la mayoría te responderán con un mensaje de 
error, como «Mistake» o «Syntax error». El Spectrum indica 
que hay un error en una línea de un programa colocando una 
interrogación intermitente delante del error, y la línea no 
puede ser introducida hasta que el error esté corregido. 

En concreto, aprende cómo se usan las teclas de edición, 

de forma que puedas borrar los errores que cometas. Los 
manuales que se acompañan con el ordenador pueden 
ayudarte en este sentido. No te preocupes si hay algunas 
teclas que no entiendes; aprenderás lo que hacen cuando las 
necesites. He aquí algunas de las teclas e instrucciones más 
importantes. 


Esta tecla (ENTER para el Spectrum y RETURN para el Commodore) se 
usa para introducir una línea del programa en la memoria del ordenador. 
Uno de los errores más comunes es escribir una línea larga y olvidar pulsar 
esta tecla. La única solución es volver a escribir la línea. 


Esta tecla del Spectrum, junto con ENTER, borra toda la pantalla. 


Esta es una tecla del Spectrum. Esta instrucción borra toda la memoria. 





Si escribes LIST en el Spectrum y después pusas ENTER, el programa que 
has escrito aparecerá en la pantalla. Cuando LIST va seguida por un 


número, listará el programa a partir del número de línea que indica este 
valor. 


Esta tecla del Commodore interrumpe un programa mientras se está 
ejecutando. Si el programa está esperando un INPUT, entonces debes 
pulsar esta tecla junto con RESTORE para interrumpir el programa. 


Esta es la tecla Commodore y tiene diversas funciones. Da acceso a los 
segundos ocho colores disponibles y a los símbolos gráficos del lado 
izquierdo de cada tecla. 


Esta tecla, abreviatura de CONTROL, realiza varias funciones en el 
48 Commodore. Se usa para obtener los primeros ocho colores disponibles. 














Preparación de un programa 


Antes de empezar a escribir un programa en BASIC debes 
saber exactamente qué quieres que haga el ordenador. El 
primer paso es escribir un esquema del programa en español 
normal. Por ejemplo, un esquema para el primer programa 
de este libro podría ser: «La idea del juego es adivinar un 

- número aleatorio. Si se consigue, el ordenador simula el 
despegue de un cohete. Sólo hay 10 intentos. Las 
instrucciones de juego deben aparecer claramente en la 
pantalla». : 

También debes planear cómo quieres sacar las 

instrucciones por la pantalla, para que queden claras. Para 
esto es muy útil un papel cuadriculado, pues la pantalla del 
ordenador está también dividida en líneas horizontales y 
verticales, aunque el número exacto-de éstas varía de una 
máquina a otra. El planteamiento inicial para el segundo 
juego de este libro, en el cual debes pilotar un cohete a través ape 
de un campo de asteroides, se muestra en la nota adjunta, así ll e y 
como un plan para la salida por pantalla. 











Una vez hechos estos preparativos iniciales puedes pasar a pES EN 1AS 
la siguiente etapa: la construcción del diagrama de flujo. El AS sa ALEe, A 
diagrama de flujo te permitirá separar el esquema inicial del AA NÉ ¿mpLÉ 
programa en cada uno de sus pasos lógicos. COHET, YLEROA ALO 
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Diagrama de flujo 


Los diagramas de flujo separan los problemas en un conjunto 
de instrucciones y decisiones. El indicado a continuación es 
para el primer programa de este libro. Las cajas con forma de 
rombo indican que se toma una decisión; por ejemplo, si el 
número es demasiado alto o si ya has usado todos tus 
intentos. A las preguntas se debe responder con sí o no, y 
dependiendo de esta respuesta, se realiza el paso siguiente 
correspondiente. Las cajas cuadradas se usan para indicar que 
se hace una operación, como escribir las instrucciones de 
juego. Los diagramas de flujo te ayudan a hacer las preguntas 
adecuadas, de forma que puedas dar las instrucciones 
correctas al ordenador. Estudiando el diagrama de flujo, es 
posible ver si se ha olvidado alguna etapa. 

Una vez que el diagrama de flujo funciona, lo único que 

resta por hacer es convertir cada instrucción en órdenes del 
lenguaje BASIC. 








Grabación de programas en cinta 


Por muy bien que llegues a conocer un programa, se tarda 
mucho tiempo en teclearlo en el ordenador cada vez que se 
quiera ejecutar. Además, muy probablemente, cometerás 
errores al escribirlo, por lo que el programa deberá ser 
revisado y corregido cuidadosamente, o depurado, como se 
dice en jerga informática. Por tanto, una vez que tengas el 
programa funcionando querrás almacenarlo en una cinta para 
uso posterior. Es una tarea sencilla y las instrucciones para 
cargar y salvar programas se indican en la nota adjunta. Es 
una buena idea salvar dos versiones de tu programa antes de 
desconectar el ordenador, por si la primera no se graba 
correctamente, como ocurre a veces. Haz la primera grabación 
y coloca el contador de la cinta en veinte, por ejemplo, antes LAA, 
de efectuar la segunda. Escribe en la cinta el nombre del | A 
programa y su posición: «Copial0» para la primera versión, 
«Copia20» para la segunda y así sucesivamente. Por esto es 
importante colocar el contador de vueltas del cassette a cero 
antes de empezar. Con las cintas adecuadamente rotuladas, 
puedes encontrar rápidamente un programa cuando quieras 
usarlo de nuevo. 

















LANZAMIENTO DE UN COHETE 


Eres el comandante de una nave espacial. Para hacer despegar la nave, 
debes indicar al ordenador central el nivel de energía necesario. El 
ordenador te dirá si tu número es demasiado alto o demasiado bajo, y si 
lo adivinas aparecerá el panel de control de la nave mostrándote cómo 
se incrementa la velocidad hasta que se alcanza la órbita. 

¡Buena suerte! 





Ed BIENVENIDO A BORDO 
CAPITAN GORDON 


PARA HACER DESPEGAR EL COHETE 
DEBES ADIVINAR El NIVEL DE ENERGIA 
NECESARIO (UN NUMERO ENTRE 1 Y 100) 


TECLEA El NUMERO Y PULSA ENTER 
INTENTO NUMERO 2 


50 


DEMASIADO ALTO PRUEBA OTRA VEZ 





13 


Este programa utiliza la capacidad del ordenador para generar 
números aleatorios. La mayoría de las líneas del programa 
son instrucciones para el jugador, que irán apareciendo en la 
pantalla en el momento apropiado del juego. Las primeras 
nueve líneas del programa crean la pantalla inicial. 


REM DESPEGUE DEL COHETE 

PRIMT CHEF<1475 

PRINT SPCC135: "DESPEGUE" 

PRINT SPCC132; 

PRINTS ¡"EL COHETE ESTA PREPARADO" 
PRINTSPOL3O "EMMDEBES HACERLO DESPEGAR" 
PRINTSPOCIO  "BMGOLO TIEMES 10 INTENTOS !!J" 
PRINTSPCOGO "MMPOR FAYOR. TECLEA TU HOMBRE" 
PRINTSFCCOD "Y PULSA FETURHEN" 


A 


pe 
JA 


00 + j 0 CA A Ll ra 
TO 


o To 


En la línea 10 se limpia la pantalla, usando CHR$(147). Para 
hacer que todo el texto aparezca en el centro de la pantalla, 
se usa la instrucción SPC (abreviatura de espacio). A 
continuación de SPC viene, entre paréntesis, el número de 
espacios que deben aparecer antes de la impresión del texto. 
Para colocar los mensajes a lo largo de la pantalla se utilizan 
códigos de control del cursor. Estos se obtienen tecleando 
primero unas comillas y luego pulsando la tecla de cursor 
arriba/abajo. Con esto hacemos que aparezca en la pantalla 
una «Q» en inverso, en lugar de mover el cursor. Por tanto, 
los tres símbolos de control del cursor de la línea 30 hacen 
que queden tres líneas en blanco entre el subrayado y el 
mensaje de la línea 40. En las líneas 50 a 80, en cambio, los 
símbolos aparecen antes del mensaje que va a ser escrito, 
para dejar dos líneas en blanco. 
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La línea 90 permite introducir el nombre del jugador cuando 
el programa se está ejecutando. La orden INPUT pone el 
cursor en modo intermitente, para avisar al usuario. El 
nombre tecleado se sitúa en una variable alfanumérica 
llamada NOS; el signo $ indica al ordenador que acepte 
como entrada tanto letras como números. El ordenador 
imprime el nombre cuando se le pide con PRINT NOS, como 
en la línea 110. Observa que la cadena se encuentra fuera de 
las comillas, y que está precedida por un punto y coma. 
Después del INPUT se limpia la pantalla, y se imprimen las 
instrucciones contenidas en las líneas 110 a 160. 


a! 


HI=INTIERHDAA a 

FORIHN=1 TO 14 

IHPLIT" Pb Ll SN 

TF Hi=H1 THEH GOTO 224 

IF HU <HI THEH FRINTSFERFA AM, DEMASIADO ERJO., 
PEUEBARA OTEAR YEZ TT" 

IF HUSHI THEH FRINTSPEZP 3 ¿AU DEMASIADO ALTO, 
PEUEBE OTE YEZTJ" 

HEAT IH 

PRIMTCHRE1470 

PEIHNTSFEL2 2: "URBINA FALLATIO TUS 14 INTENTOS 1" 
PEINT"MmTECLEA “RUN CERETUERS FARA JUGAR OTRA YEZ" 
STOP 
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La instrucción RND(0) de la línea 170 genera un número 
aleatorio entre O y 1; éste se multiplica por 100 y se 
transforma en un número entero por medio de la función 
INT. Por último, dado que INT redondea por defecto los 
números decimales al entero más cercano, se le suma uno 
para asegurarse de que nunca será cero. Este número se 
almacena en la variable NI (abreviatura de nivel). La línea 
180 limita el número de intentos a diez. Si el número es 
correcto, el programa saca el mensaje correspondiente de la 
línea 280; en caso contrario, las líneas 210 y 220 dicen al 
jugador si el número elegido era demasiado alto o demasiado 
bajo. Si se fallan los diez intentos, el programa va a las líneas 
240 y 260 y se imprime el mensaje correspondiente. 
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9 PRINTSPC 
PRINTSPC 







9000 


IF ALCOB THEN GOTO 339 





Al producirse el despegue aparece el panel de contro! y la 
altitud va aumentando a medida que la nave acelera para 
alcanzar su órbita. La línea 290 pone la altitud inicial a cero, y 
la 300 pone el objetivo de la órbita en 10000. Las siguientes 
tres líneas imprimen las palabras DESPEGUE y ALTITUD, así 
como el valor de la altitud, en las posiciones adecuadas de la 
pantalla para crear un panel de control. La línea 360 halla la 
nueva altitud, duplicando el valor anterior y sumándole uno. 
Dado que el ordenador trabaja muy deprisa, los valores de la 
altitud pasarían por la pantalla demasiado rápido para verlos 
claramente, si se permitiera al ordenador simplemente hacer 
el cálculo e imprimirlo. Para frenar al ordenador, las líneas 
340 y 350 hacen un bucle de retardo. Estas órdenes obligan 
al ordenador a contar hasta 500 antes de hacer cualquier otra 
cosa; para producir una elevación más rápida disminuye 

el valor del retardo. La línea 370 dice al ordenador que 
vuelva a la 330, imprima el valor de altitud obtenido y vuelva 
a calcular un nuevo valor de altitud; esto se repetirá hasta 
que la altitud sea mayor que el objetivo para alcanzar la 
órbita. 














A PRINTCHR$C147) 

O FORFI=1T015 
400 PRINTSPCC110; "COHETE EN OREITA!! 11" 
410 HEXTFI 

O 420 PRINT"EMN ENHORABUENA CAPITAN “¿NOS 












La sección final del programa imprime un mensaje de 
felicitación. En las líneas 390 a 410 se usa un bucle 
FOR...NEXT para escribir COHETE EN ORBITA! quince 
veces. Para ello utiliza la variable FI (abreviatura de fila), en 
este caso tomando valores desde 1 a 15, con lo que le dice al 
ordenador que escriba desde la fila 1 a la 15. Sin este bucle 
habría sido necesario copiar la línea 400 quince veces, cada 
una con un número de línea de programa distinto. 
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Este programa utiliza la capacidad del ordenador para 
generar números aleatorios. La mayoría de las líneas del 
programa son instrucciones para el jugador, que irán 
apareciendo en la pantalla en el momento apropiado del 
juego. Las primeras nueve líneas del programa crean la 
pantalla inicial. 


S REM despegue del cohete 

10 CLS 

20 PRINT AT 4,10; "DESPEGUE" 

30 PRINT AT 5,103" iS 

40 PRINT AT 8,4;"EL COHETE ESTA PREPARADO" 


50 PRINT AT 10,4; "DEBES HACERLO DESPEGAR" 

£0 PRINT AT 13,13 INK 23 FLASH 15"solo tienes 10 intentos” 
70 PRINT AT 16,33"POR FAVOR, TECLEA TU NOMBRE" 

80 PRINT AT 18,2;3"Y PULSA ENTER" 





La línea 5 usa un REM para dar un título al programa y la 
orden CLS de la línea 10 limpia la pantalla. Las siguientes 
líneas tienen la información que va a aparecer en la pantalla; A 
la orden PRINT se puede usar para hacer esto, pero no CUANDO SE INTRODUCEN 
produce una pantalla interesante (prueba y lo verás). Por eso | AS COORDENADAS, El. 
se usa PRINT AT para posicionar los mensajes en la pantalla; 
los números que le acompañan indican el primero la fila, y el 
segundo la columna de la pantalla. El Spectrum tiene la 
pantalla dividida en 22 filas y 32 columnas. Observa que los 
números de fila y columna están separados por una coma y 
seguidos de un punto y coma. Con cualquier otro signo de 
puntuación, el programa no funcionaría correctamente. 
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"BIENVENIDO A BORDO": PRINT "CAPITAN "3ns$ 
120 PRINT AT 4,13"PARA HACER DESPEGAR EL COHETE" 
E) 130 PRINT AT 6,1;"DEBES ADIVINAR EL NIVEL DE” 
140 PRINT AT 8,13"ENERGIA NECESARIO" 
O _150 PRINT AT 10,13"(UN NUMERO ENTRE 1 Y 100)" 
12,1;"TECLEA EL NUMERO Y PULSA ENTER" 










La línea 90 permite introducir el nombre del jugador cuando 
el programa se está ejecutando. La orden INPUT coloca el 
cursor en modo intermitente, para avisar al usuario. El 
nombre tecleado se sitúa en una variable alfanumérica 
llamada n$; el signo $ indica al ordenador que acepte como 
entrada tanto letras como números; sin el, el ordenador sólo 
aceptaría números. Cuando al ordenador se le dice PRINT 
n$, como en la línea 110, escribe cualquier cosa guardada en 
n$. Observa que en esta línea, la cadena se encuentra fuera 
de las comillas y está precedida por un punto y coma. 
Después del INPUT, se limpia la pantalla y se deja preparada 
para el segundo conjunto de instrucciones de la líneas 110 a 160. 


LET nivel=INT (RND*100)+1 
FOR i=1 TO 10 
INPUT num 
PRINT AT 17,163num3" _ 
IF num=nivel THEN GO TO 280 
IF num<nivel THEN PRINT AT 20,13"DEMASIADO BAJO, 
PRUEBA OTRA VEZ" 
IF num>»bmnivel THEN PRINT AT 20,13"DEMASIADO ALTO, 
PRUEBA OTRA VEZ" 
NEXT i 
CLS 
PRINT AT 4,03"HAS FALLADO TUS 10 INTENTOS" 
PRINT AT 6,03"TECLEA *RUN”? (ENTER) PARA JUGAR"; AT 
7,03 "OTRA VEZ" 
270 STOP 


3089 


388 


La instrucción RND de la línea 170 genera un número 
aleatorio entre O y 1; éste se multiplica por 100 y se 
transforma en un número entero por medio de la función 
INT. Por último, dado que INT redondea por defecto los 
números decimales al entero más cercano, se le suma un 1 
para asegurarse de que nunca será cero. Este número se 
almacena en la variable nivel. La línea 180 limita el número 
de intentos a diez. Si el número es correcto, el programa saca 
el mensaje correspondiente de la línea 280; en caso contrario, 
las líneas 210 y 220 dicen al jugador si el número elegido era 
demasiado alto o demasiado bajo. Si se fallan los diez 
intentos, el programa va a las líneas 240 y 260 y se imprime 
el mensaje correspondiente. 
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CLS 


290 LET altitud=0 


300 LET objetivo=10000 


320 PRINT AT 10,103"ALTITUD" 
330 PRINT AT 10,20;a1titud 
340 FOR r=1 TO 100 E 
350 NEXT r 
360 LET altitud=altitud*2+1 

IF altitud<objetivo THEN GO TO 330 








Al producirse el despegue aparece el panel de control y la 
altitud va aumentando a medida que la nave acelera para 
alcanzar su órbita. La línea 290 pone la altitud inicial a cero, 
y la 300 pone el objetivo de la órbita en 10000. Las tres 
líneas siguientes imprimen las palabras ELEVACION y 
ALTITUD, así como el valor de la altitud en las posiciones 
adecuadas de la pantalla, para crear un panel de control. La 
línea 360 halla la nueva altitud, duplicando el valor anterior y 
sumándole uno. Como el ordenador trabaja muy deprisa, los 
valores de la altitud pasarían por la pantalla demasiado 
rápido para verlos claramente, si se permitiera al ordenador 
simplemente hacer el cálculo e imprimirlo. Para frenar al 
ordenaor. las líneas 340 y 350 hacen un bucle de retardo. 
Estas órdenes obligan al ordenador a contar hasta 100 antes 
de hacer cualquier otra cosa; para producir una elevación más 
rápida, disminuye el valor del retardo. La línea 370 dice al 
ordenador que vuelva a la 330, imprima el valor de altitud 
obtenido y vuelva a calcular un nuevo valor de altitud; esto se 
realizará hasta que la altitud sea mayor que el objetivo (en 
este caso 10000), con lo que se habrá alcanzado la órbita. 








380 CLS 


390 FOR r=S5 TO 10 O 
400 PRINT AT r,8;"COHETE EN ORBITA !" 
410 NEXT r 





E) 420 


INT AT 15,1; "ENHORABUENA CAPITAN "3n% 





La sección final del programa imprime un mensaje de 
felicitación. En las líneas 390 a 410 se usa un bucle 
FOR...NEXT para escribir COHETE EN ORBITA! cinco veces. 
Para ello utiliza la variable f (abreviatura de fila), en este caso 
tomando valores desde 5 a 10, con lo que le dice al 
ordenador que escriba desde la fila 5 a la 10. Sin este bucle, 
habría sido necesario copiar la línea 400 cinco veces, una por 
cada fila que quisiéramos imprimir. 


Mejora el programa 

Una de las mejores formas de aprender programación es 
experimentar con los programas que escribes. Prueba a quitar 
el retardo de las líneas 340 y 350 y mira lo que ocurre. 
Cambia el número de intentos de que dispone el jugador, 
modificando las líneas 180 y 250. Apunta siempre las 
modificaciones que hagas, para que puedas devolver el 
programa a su forma primitiva. 





Adición de sonido 


COMMODORE 

El Commodore puede producir sonidos extremadamente 
interesantes, pero las órdenes necesarias son muy complejas. 
El sonido se obtiene usando la instrucción POKE, seguida de 
dos números. La instrucción POKE está fuera del alcance de 
este libro, pero añade estas líneas a tu programa para 
producir sonidos en el despegue. 


365 FUKES4277, 15: POKES4278, 81: POKE54296, 15: POKE54276, 129 
366 POKES4273, AL/65: FORT=0T060: NEXT 


373 POKES4276,128 





SPECTRUM 

El Spectrum utiliza la orden BEEP seguida de dos números; 
el primero indica la duración del sonido y el segundo el tono. 
Inserta una línea nueva, la 325 en este caso, y sustituye el 
bucle de retardo de las líneas 340 y 350 por las órdenes 
BEEP indicadas, para producir varios sonidos. 


325 LET s=0 
340 BEEP .1,s: BEEP .1,s: BEEF .1,s: BEEP .1,s 


350 LET s=s+2 
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ASTEROIDES 


El cohete está ya en órbita. De repente, te metes en una terrible 
tormenta de asteroides. Debes dar al ordenador central de la nave las 
instrucciones de vuelo adecuadas para atravesar la tormenta. Es 
imposible dar marcha atrás, y una colisión significará la total 
destrucción de tu nave. 


000000 


+ 


DIRECCION (norte, sur, este) “n” 
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Este programa usa algunos de los caracteres gráficos 
disponibles en el Commodore. Imprime los asteroides y el 
cohete en la pantalla, y permite al cohete moverse de acuerdo 
con las órdenes que se le den durante el juego. Como 
anteriormente, una línea REM asigna un título al programa y 
se limpia la pantalla de cualquier mensaje que hubiera usando 


PRINT CHR$(147). 


S FEN ASTERDIDES 
PRINTOHES¿147 


Lo primero, antes de escribir la sección del programa que 
dibujará los asteroides en posiciones aleatorias de la pantalla, 
es planear cómo va a quedar ésta. La pantalla del 
Commodore 64 tiene una anchura de 40 columnas y una 
altura de 25 filas, numeradas desde O a 39 y desde O a 24 
respectivamente. La nave debe atravesar la pantalla de 
izquierda a derecha; por tanto, su punto de salida debe estar 
en la columna 0. El campo de asteroides ocupará la mayor 
parte de la pantalla (en este caso desde la columna 3 hasta la 
32). La nave conseguirá su objetivo cuando pase la columna 
33 sin haber chocado con ningún asteroide. Las tres primeras 
filas de la pantalla se reservan para imprimir instrucciones y 
mensajes indicando el desarrollo del juego, y para permitir la 
introducción de órdenes durante éste. Además, la nave no 
podrá volar por los bordes de arriba y abajo de la pantalla 
para evitar los asteroides. Teniendo en cuenta estas 
consideraciones se hace el planteamiento indicado más abajo. 
Puedes hacer otra planificación diferente, pero deberás 
cambiar algunos de los valores de las instrucciones PRINT. 


COLUMNA 


ZONA DE ASTEROIDES 


22 








A id bici 


ATARI 


AA ib 




















































¿6 DIM Coco». FICSO) 
¿3 LDS=" ART” O : 
34 'AS=1 TO SA 
40 =INTERHDCO ADO 043 
sa 0=IHTORNDCO A 200+4 Ob 
656 POKE 646.343 PRINTLEFTSCUDE.) FILAS OS PELCOLASII" a" 
O Es FRINTLEFTECUDE. FICASI+1 O SPOCCOCASA O" A y 
TO HEsT AS 


En la línea 20, la orden DIM crea dos matrices, donde se van 
a guardar las coordenadas “columna” y “fila” de los 
asteroides. El número entre paréntesis indica el número de 
asteroides, y por tanto el tamaño necesario para la matriz. En 
la línea 25 se almacena en UD$ una cadena de códigos de 
control del cursor, que se usará más tarde para poner el 
cursor en la fila deseada de la pantalla, como en la línea 110. 
Las líneas 30 a 70 son un bucle FOR...NEXT que hace que 
las órdenes de las líneas 40 a 65 se realicen para cada uno 
de los 50 asteroides, por turno. La variable de bucle AS 
indica el asteroide que toca. En las líneas 40 a 50 se generan 
una columna y una fila aleatorias que indican la posición de 
cada asteroide en la pantalla. La línea 60 hace la parte de 
arriba del asteroide, usando el símbolo gráfico de la tecla “D” 
Para obtener el símbolo, pulsa la tecla COMMODORE y la 
“D” a la vez. La línea 65 hace la parte de abajo, por medio 
de dos caracteres. El primero está en inverso (el carácter que 
aparece en el listado es el opuesto del que aparecerá en la 
pantalla). Mira la nota de al lado para aprender a obtener los 
caracteres inversos. El segundo carácter se consigue pulsando 
la tecla COMMODORE y la “V” al mismo tiempo. Prueba esta 
sección como se indica a continuación. 









INT"STIEMPO:* 
FRINTRIGHTECTIS 
IF YALIMIDICTIA 


En la línea 80 se pone a O la variable TIS, que representa el 
tiempo. Observa que tiene seis caracteres: los dos primeros 
cuentan las horas, los dos siguientes los minutos y los dos 


caracteres tercero y cuarto para imprimir los minutos y en la 
145, RIGHTS extrae los dos últimos para imprimir los 
segundos. La línea 150 lleva al programa a la línea 350, 
donde se avisa que el tiempo se ha acabado, si el valor del 
cuarto carácter es mayor que dos, es decir, cuando han 
pasado dos minutos. La cadena de 38 espacios de la línea 90 
se usa en las líneas 120 y 130 para borrar los valores 
antiguos impresos en la parte de arriba de la pantalla. Las 
líneas 100 y 110 imprimen un “X” en una posición aleatoria 
de la columna 0, para representar la nave dispuesta a iniciar 
su viaje. 








últimos los segundos. En la línea 140, la orden MID$ saca los 











Las líneas 160 a 220 permiten la introducción de la dirección 
y la distancia del vuelo de la nave. Son suficientes tres 
direcciones —norte, sur y este—, ya que la nave se mueve de 
izquierda a derecha. La entrada se almacena en la variable 
DIS. Si se pulsa una tecla incorrecta la línea 200 manda al 
programa a la 120, hasta que se pulse una tecla válida. En la 
línea 220 el símbolo de la nave se cambia por una “0”, para 
representar la trayectoria seguida. 


CAMINO DELA NAVE 
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CAMINO DELA NAYE 


00000. 


POSICIÓN VELA NAVE 





Las líneas 170 a 190 cargan los valores para cambiar el curso 
de la nave, utilizando AR para los cambios en vertical y DE 
para los horizontales. El movimiento de la nave tiene lugar 
tras haber introducido la distancia. Esto se produce en la línea 
210. Observa que no se necesita una variable alfanumérica 
para este INPUT, pues la distancia es un número. Por último. 
en esta sección el simbolo de la nave se cambia por un O, 
para que el camino recorrido por la nave y la posición de ésta 
no se confundan. 


Las líneas 230 a 330 son realmente el corazón del programa. 
Hacen que la nave se mueva por la pantalla y comprueban 
que no ha habido ningún choque. Toda la sección está dentro 
de un bucle FOR...NEXT, que usa la variable C (indicando el 
curso). El bucle se repite tantas veces como indica el valor de 
la distancia leído en la línea 210. La nueva posición de la 
nave se calcula en las líneas 240 y 250, utilizando los valores 
de AR y DE hallados en la sección anterior. La nave se 
mueve a su nueva fila y columna paso a paso. 


24 FORC=1TO0D1 
A FI=FI+HE: 


3+1 THEN 1370 
THEH 1370 


3080 


PRIMTLEFTECUOE,)FI2S PEC "a" 
IF CO0>*33 THEH 14105 

339 MEXTC 

44 GOTO 1114 


So 


EVITADO, 
PRÓXIMO ASTERO/DE EVITADO, 
PRÓXIMO ASTEROIDE 


EVITADO, , 
PROXIMO ASTEROIDE EVITADO, PROXIMO ASTEROIDE 





En las líneas 260 a 290 se usa otro bucle FOR...NEXT para 
comprobar si la nave ha chocado con algún asteroide. Las 
líneas 270 a 285 comparan la columna y la fila de la nave 
con las de los asteroides, almacenadas en las matrices creadas 
en la línea 20. La línea 270 comprueba la colisión con el 
carácter gráfico de la línea 60, y las líneas 280 y 285 con los 
de la 65. El bucle realiza todo esto para cada uno de los 
asteroides. La línea 300 comprueba si la nave se ha salido de 
órbita. Si todo ha ido bien, la nave se dibuja en su nueva 
posición. La comprobación final consiste en ver si la nave ha 
llegado a la columna 34. Por último, la línea 340 hace saltar 
el programa a la línea 110, para leer una nueva dirección y 
una nueva distancia. 


Sólo queda añadir los mensajes finales. Los códigos de 
control de cursor y la colocación de mensajes en dos líneas 
producen una pantalla mejor. El símbolo del corazón en 
inverso delante de cada mensaje es el código para borrar la 
pantalla (hace lo mismo que CHR$(147)). 


FE IHT" TaeelstelsTaTeleTe] EL FUEL SE HA ACABADO" 


STOP 

Fe INT" CIraaisislelnisTaTa HAS CHOCADO CON UN ASTEROIDE" 
PRIHT'" Im TU HAYE ESTA DESTROZADA" :STOP 
FEIAT"Tmalaselseisisia] TE HAS SALIDO DE OREITA" 
PERITO" la] Y TE FPIERDES EN EL ESPACIO":=STOP 

FE IAT"malmaalsielasTaa LOS HAS ESCUIVYADO BIEN!!!" 

PR IHMT'" Una] ERES LN BUEN PILOTO ESPACIAL" 


Al jugar debes tener en mente cómo están hechos los 
asteroides. Están compuestos por tres caracteres gráficos. Los 
caracteres están compuestos por cuatro bloques, como se 
indica en el diagrama de abajo. Si la nave se sitúa en 
cualquiera de los bloques de un carácter, el ordenador 
informará que se ha producido una colisión. 
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FEIHT'"eIA Y QUETARAS EN EL ESPACIO PARA SIEMPRE": 


00.9. 











Este programa usa el conjunto de caracteres gráficos 
disponibles en el Spectrum. Imprime los asteroides y el 
cohete en la pantalla y permite al cohete moverse de acuerdo 
con las órdenes que se le den durante el juego. Como 
anteriormente, una línea REM asigna un título al programa, y 
se limpia la pantalla de cualquier mensaje que hubiera. 






S REM asteroides 
10 CLS 


Lo primero, antes de escribir la sección del programa que 
dibujará los asteroides en posiciones aleatorias de la pantalla, 
es planear cómo va a quedar la pantalla. La pantalla del 
Spectrum tiene una anchura de 32 columnas y una altura de 
22 filas, numeradas desde O a 31 y desde O a 21 
respectivamente. El cohete debe atravesar la pantalla de 
izquierda a derecha; por tanto, su punto de salida debe estar 
en la columna 0. El campo de asteroides llegará hasta la 
columna 29 y la nave conseguirá su objetivo cuando pase la 
columna 30 sin haber chocado con ningún asteroide. Las dos 
últimas filas de la pantalla se reservarán para imprimir 
instrucciones y mensajes indicando el desarrollo del juego y 
para permitir la introducción de órdenes durante el juego. 
Además, la nave no podrá volar por el borde de la pantalla 
para esquivar los asteroides. Teniendo en cuenta estas 
consideraciones, se hace el planteamiento indicado más abajo. 
Puedes hacer otra planificación diferente, pero si lo haces 
deberás cambiar algunos de los valores de las instrucciones 
PRINT AT que hay en el programa para posicionarse en un 
cuadro determinado. Dibuja una cuadrícula de la pantalla para 
ayudarte a organizar la impresión. 






CcoLUMNVA 


ZONA DE ASTEROIDES 


E 






















20 DIM c(50): DIM + (50) 

30 FOR s=1 TO 30 

40 LET c(s)=INT (RND*26)+3 

50 LET £f(s)=INT (RND*18)+2 

60 PRINT AT £(s),c(s)3 CHR$ 132 

65 PRINT AT 4 (s)+1,c(s)3 CHR$ 135;CHR$ 130 
NEXT s 


GO 


360 


| En la línea 20, la orden DIM crea dos matrices, donde se van 
| a guardar las coordenadas columna y fila de los asteroides. El 
número entre paréntesis indica el número de asteroides y por 
tanto el tamaño necesario para la matriz. Las líneas 30 a 70 
son un bucle FOR...NEXT que hace que las órdenes de las 
líneas 40 a 65 se realicen para cada uno de los 50 asteroides. 
| La variable del bucle “s” indica el asteroide que toca; en el 
Spectrum, las variables de bucle constan de una sola letra. Al 
final del programa tienes una lista con todas las variables 
utilizadas. Es una buena idea hacer una lista de ellas, pues 

| resulta fácil olvidar para qué sirve cada una. En las líneas 40 
a 50 se generan una columna y una fila aleatorias que indican 
la posición de cada asteroide en la pantalla. Las líneas 60 y 
65 imprimen los gráficos que representan los asteroides; están y 
formados por tres gráficos con códigos CHR$ de 132, 135 y -JECL 
130. Estos gráficos están también disponibles directamente en | recuy4 
el teclado (ver la nota adjunta). 





¡| Si ejecutas esta sección verás cómo se genera el campo de 
asteroides en posiciones aleatorias de la pantalla. 




















Una vez dibujado el campo de asteroides. hay que dar a la 
nave una posición de salida aleatoria en la columna O. La 
instrucción RND nos sirve de nuevo, y el valor generado lo 
convertimos en un entero entre dos y veinte. La nave se 
representa con una X. La próxima sección del programa 
permite al jugador controlar su movimiento por la pantalla. 





Me 100 LET col=0: LET fila=2+INT (RND*18) 
le 110 PRINT AT fila,col3"X" 





A > 





Para controlar la nave son suficientes tres direcciones 

—norte, sur y este—, pues la nave atraviesa la pantalla de 
izquierda a derecha. La dirección se introduce usando las 
letras N. S y E respectivamente. Con INPUT la almacenamos 
en la cadena d$. Si se introduce una letra incorrecta, la línea 
200 manda al programa a la línea 160, y así ocurrirá hasta que 
se teclee una letra correcta y el programa salte a la línea 210. 





0 E ES = — Ne 
150 INPUT "DIRECCION (norte,sur,este) "3d$ 

Fa 170 1F d$="n" THEN LET arriba=-1: LET derecha=0: GO TO 210 E 

130 IF d$="s" THEN LET arriba=1: LET derecha=09: GO TO 210 Sl 

190 IF d$="e" THEN LET arriba=0: LET derecha=1: GO TO 210 E 

) 200 GO TO 160 o 










210 INPUT "DISTANCIA "5distancia 
PRINT AT fila,col;3"O0" 


Las líneas 170 a 190 cargan los valores para cambiar el curso 
de la nave, utilizando arriba para los cambios en vertical y 
derecha para los horizontales. El movimiento de la nave tiene 








lugar tras haber introducido la distancia. Esto se produce en S 
la línea 210. Observa que no se necesita una variable 3 
alfanumérica para este INPUT, pues la distancia es un $ 
número. Por último, en esta sección el símbolo de la nave se y 
cambia por una O, para que el camino recorrido por la nave y SS 
la posición de ésta no se confundan. 2 

X 

S 

CAMINO DE LA NAVE POSICIÓN DE LA NAVE 
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Las líneas 230 a 330 son realmente el corazón del programa. 
Hacen que la nave se mueva por la pantalla y comprueban 
que no ha habido ningún choque. Toda la sección está dentro 
de un bucle FOR...NEXT, que usa la variable c. El bucle se 
repite tantas veces como indica el valor de distancia leído en 
la línea 210. La nueva posición de la nave se calcula en las 
líneas 240 y 250, usando los valores de arriba y derecha 
hallados en la sección anterior. La nave se mueve a su nueva 
fila y columna paso a paso, imprimiendo un “0” por su 
camino. 


c=1 TO distancia 

fila=fila+tarriba 

col=col+derecha 

s=1 TO 50 
IF col=c(s) AND fila=f(s) THEN GO TO 370 
IF col=c(ís) AND fila=f(s)+1 THEN GO TO 370 
IF col=c(s)+1 AND fila=f(s)+1 THEN GO TO 370 
NEXT s 
IF fila>20 OR fila<2 THEN GO TO 390 
PRINT AT fila,col;"0O" 
IF col>30 THEN GO TO 410 
NEXT c 
GO TO 110 


So 


O 


SS 


En las líneas 260 a 290 se usa otro bucle FOR...NEXT para 
comprobar si la nave ha chocado con algún asteroide. Las 
líneas 270 a 285 cogen la columna y la fila de la nave y las 
comparan con las de los asteroides, almacenadas en las 
matrices creadas en la línea 20. La línea 270 comprueba la 
colisión con el carácter gráfico de la línea 60, y las líneas 280 
y 285 con los de la 65. El bucle realiza todo esto para cada 
uno de los asteroides. La línea 300 comprueba si la nave se 
ha salido de órbita. Si todo ha ido bien, la nave se dibuja en 
su nueva posición. La comprobación final consiste en ver si la 
nave ha llegado a la columna 30. Por último, la línea 340 
hace saltar el programa a la línea 110, para leer una nueva 
dirección y una nueva distancia. 


EVITAD C 
a PROXIMO ASTEO'E, y 7e PIDE * 
lor bios dir Ned e Y 


TEROIDE ” 
PRCEIICANEn Ve mu 7" EVITADO. PRÓXIMO ASTEROIDE 
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Sólo queda añadir los mensajes finales. Las instrucciones 
PRINT AT y la colocación de mensajes en dos líneas 
producen una pantalla mejor. No olvides las órdenes STOP; si 
omites alguna, el ordenador seguirá hasta la última línea del 
programa. 


PRINT AT 10,0;3"HAS CHOCADO CON UN ASTEROIDE" 
AT 13,03"TU NAVE ESTA DESTROZADA": STOP 

PRINT AT 10,0;"TE HAS SALIDO DE ORBITA" E 
AT 13,03"Y TE PIERDES EN EL ESPACIO": STOP E 
PRINT AT 10,0;3"LOS HAS ESQUIVADO BIEN !!" 

AT 20,0;"ERES UN BUEN PILOTO ESPACIAL” 





ct 


Scocoo + 


"he 
¿+ 


+ 
a 
++ 


DIRECCION (norte, sur, este) “n” 





Al jugar debes tener en mente cómo son los asteroides. Están 
compuestos por tres caracteres gráficos. En el Spectrum, cada 
carácter gráfico disponible está formado por una combinación 
de cuatro bloques, como se muestra en el diagrama de abajo. 
El símbolo de la nave también ocupa cuatro bloques. Si 
cualquier parte de la nave ocupa alguno de los cuatro bloques 
de alguno de los tres caracteres gráficos, el ordenador 
informará que se ha producido una colisión. 


CRASH 
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| 00 0 0 E 
y LUBLREVLIVAUUE 


Mejora el programa 

Puedes hacer el juego más difícil incrementando el número 
de asteroides —con unos 120 es casi imposible encontrar una 
ruta libre. Cambia las líneas 20, 30 y 260. 


Adición de color 





COMMODORE 

Para producir asteroides de color aleatorio en el Commodore 
se debe usar la instrucción POKE. La dirección de memoria 
del ordenador 646 selecciona el color. El segundo número 
que sigue a POKE indica el color elegido. La sección de 
programa que sigue elige un número aleatorio entre 1 y 8, 
pero este valor no puede ser seis, pues es el color del papel y 
produciría un asteroide “invisible”. 


55 XX=INT(RND (0)*8)+1: IFXX=6THENSS 


O 60 POKE646, XX:PRINT LEFTS$(UD$,FI (AS) )SPC(CO(AS) ) "La" 





SPECTRUM 

Es muy fácil hacer los asteroides de colores diferentes. El 
Spectrum puede producir asteroides de colores usando la 
orden INK, seguida de un número entre O y 7, ambos 
inclusive (mira las teclas del color del teclado y consulta tu 
manual). Puedes utilizar la capacidad del ordenador para 
generar números aleatorios dentro de cualquier rango, en 
nuestro caso de O a 7, añadiendo la línea 55 y cambiando la 
línea 60 como se indica. Así producirás asteroides de color 
aleatorio. 


55 LET xxx=INT (RNDx*7) 
S) 606 PRINT AT £ís),cls)3 INK xxx:3CHR$ 132 


65 PRINT AT +(s)+1,c(s)3 INXK xxxs5sCHR$ 135: CHRS$ 





Usa el sonido para producir efectos al salirte de órbita o para 
cuando consigas atravesar el campo de asteroides. 
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ATERRIZAJE DEL 
TRANSBORDADOR ESPACIAL 


Por causa de la tormenta de asteroides, tu misión ha quedado 
suspendida, y debes regresar a la base. El punto de aterrizaje está a la 
vista, pero el piloto automático no funciona. Debes llevar la nave a 
tierra usando los dos controles manuales. Tu panel de control te dará 
detalles del vuelo. 


ALTURA CAIDA VELO. DISTANCIA 
12009 4009 11600 
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Como en el programa anterior, el primer paso es hacer un 
plano de cómo va a quedar la pantalla. De nuevo la nave va 
a atravesar la pantalla de izquierda a derecha, empezando en 
la esquina de arriba. El objetivo de la nave, la pista de 
aterrizaje, se representa con un bloque en la esquina de abajo 
de la derecha. La parte de arriba de la pantalla se reserva 
para el panel de control de la nave, donde se indica la altura, 
el grado de caída, la velocidad y la distancia a la pista. Con 
estas consideraciones, nos queda una pantalla como ésta. 


[AE HAHAHAHA 
Cl lalc[rlutelal 11 Iclalrlola] IMellolc] | [olWiSTrA] 
dl zoe 114148 Dll TI Tele 





REM ATERRIZAJE 

PEIMTU" 

Did AA daa 

LéE=" E 

Dis" Suena atea" 

FERIAT" ALTURA ALAIDA MELO. BDISTRHCIA" 
FEIATLEFTE CL, 2d PEC A 


A 
2 LA 


ALA 


re 
al 


d nadan ro 
1 


La línea 20 pone los valores iniciales para la velocidad, altura, 
grado de caída y distancia de la nave a la pista. En la línea 30 
se almacenan seis espacios en la cadena C$, que utilizaremos 
luego para borrar de la pantalla los valores antiguos del panel 
de control. La línea 35 almacena un conjunto de códigos de 
control de cursor, que se usará más tarde para posicionar el 
cursor. El panel de control se imprime en la línea 40. El color 
del texto se consigue pulsando la tecla Control o la tecla 
Commodore junto con un número de 1 a 8. Por ejemplo, el 
rojo claro se obtiene con Commodore y “3”. En el programa 
los colores están representados con códigos de color en las 
líneas 40 y 50. El código de la línea 50 produce en la pista 
un color verde claro. 
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TLEFTECUDES Ya10SPCC0 "ma 


INVERSO NO INVERSO 


La posición inicial de la nave se da por medio de las [Ex] al] [Ex] CT 


coordenadas X e Y de la línea 60. La nave se imprime en 
amarillo, usando los códigos de “inverso” y “no inverso”, de 
forma similar a como se hizo con los asteroides en el 
programa anterior. La cola de la nave se hace con la tecla 
Commodore y “C” y el cuerpo con la “I”. 











ca FEIHT" AMA "CE 

24 FEIATUS a ei 

100 PRIHTUaN"ss 3 
FEJIH rosas 
FRIMT" Sm" Pe 

Sa FEINT"A3HN 

e PRINTS" PL 

A ES 





Las líneas 80 a 150 imprimen los valores de la velocidad, 
grado de caída, altura y distancia a la pista, cada uno debajo 
de su correspondiente cabecera en el panel de control. De 
nuevo se usan los códigos de control de color para producir 
un texto coloreado. La cadena C$ de las líneas 80, 100, 120 
y 140 utiliza los seis espacios almacenados en la línea 30 para 
borrar los antiguos valores antes de imprimir los nuevos. Esto 
dará la impresión de un panel de control en funcionamiento a 
medida que la nave se aproxime a la pista de aterrizaje. 















166 IFVZZ0A THENPRINTLEFTECUDA, 1105PCC129 "SEL MOTOR SE HA 


FARADO" :ETOF : 

O 170 1F D<-999 THEM PRINTLEFTSCUDE, 1132 El COHETE SE HA . 
PASADO": STOP a 

sa IFAZ=b THEH 225 











Las líneas 160 a 180 comprueban que la velocidad no sea 
demasiado baja, y que la nave no se haya pasado de la pista 
en un valor mayor de 999. La línea 180 comprueba si la nave 
ha llegado a una altura cero, en cuyo caso el programa salta 
a la línea 290, donde se comprueba si se cumplen las otras 
condiciones necesarias para el aterrizaje. La instrucción 
LEFT$(UD$,11) usa un trozo de la cadena de códigos de 
control de cursor, que se almacenaron en la línea 35, para 
posicionar los mensajes en la pantalla. 





35 

















GET Ez 

IF Eg="p4" THEN F=F+1:=43 

IF ERg$="D" THEWN F=F-1:4=4-3 

IF F=4 THEN F=1l:W="-28 

ASAS a ELE: =D 1 HT 0410) 
PRIMTLEETECUDE +15 PECADOR 
4=35-=JHT<D,C13004,33)77 

2 TATOA ACERA 

PRINTLEFTE CUIDE. MiS PEO MA E" 
GOTO. ada 


A] 


O 
O 


O 
Di Po Ta Bo TADA A 


a 


AO 


HS 


a 
Ss 


e 





cl 
al 


10 UA o RA LO 
TY 
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O 
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a 











Desde la línea 190 hasta la 280, el programa permite al 
jugador controlar el descenso de la nave. En la línea 190, la 
orden GET R$ le dice al ordenador que examine el teclado y 
vea si se ha pulsado alguna tecla. Cualquier tecla que se 
pulse se almacena en R$. Las líneas 200 y 210 comprueban 
si en R$ hay una “A” o una “D” (que significan acelerar y 
decelerar respectivamente), en cuyo caso se modifican los 
valores de los indicadores de acuerdo con la tecla pulsada. En 
la línea 220 el programa se asegura de que el grado de 
descenso nunca sea cero (si así fuera, la nave se pararía del 
todo). La línea 230 calcula los nuevos valores de altura, 
velocidad y distancia, para ser imprimidos en el panel de 
control. En la línea 240, parte de los códigos de control de 
UDS se usan para posicionar el cursor, de forma que con los 
espacios almacenados en C$ se borre la antigua posición de 
la nave. Los nuevos valores de las coordenadas X e Y se 
calculan en las líneas 250 y 260, usando los nuevos valores 
de distancia y altura. La línea 270 dibuja la nave en su nueva 
posición, y la 280 vuelve a la línea 80 para continuar con el 
descenso de la nave. 














IF 136668 TREN PEIHT LEFTE2UDS.11:"3 ATERRIZAJE 
DEFECTUOSA": END 
IF oa TREH PRIRTLEFTECUDE,115"3 DEMASIADA 
VELOCIDAD!" ED 
IF FOSTHEN FEIMTLEFTECUDE,11:"3 TREH TIE 
ATERRIZAJE ROTO": EMD 

cea PEINTLEFTECUDE. 1133 ATERRIZAJE FERFECTO!!1!1":E HD 













Por último vienen los mensajes de finalización. Se comprueba 
que el aterrizaje no sea demasiado lejos de la pista, y que ni 
la velocidad ni el grado de caída sean demasiado altos. Si se 
cumplen todas las condiciones, el programa va a la línea 320 
y aparece el mensaje de felicitación. 
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Como en el progama anterior, el primer paso es hacer un 
plano de cómo va a quedar la pantalla. De nuevo la nave va 
a atravesar la pantalla de izquierda a derecha, empezando por 
la esquina de arriba. El objetivo de la nave, la pista de 
aterrizaje, se representa con un bloque en la esquina de abajo 
en la derecha. La parte de arriba de la pantalla se reserva 
para el panel de control de la nave, donde se indica la altura, 
el grado de caída, la velocidad y la distancia a la pista. Con 
estas consideraciones, nos queda una pantalla como ésta: 
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S REM aterrizaje del cohete 


19 CLS 
20 LET d=18000: LET v=400: LET a=2000: LET +=5 
30 LET cé$=" y 
40 PRINT AT 1,03 INK 25"ALTURA "3 INK 43"CAIDA "5 INK 3; 
"VELOCIDAD "5 INK 15 "DISTANCIA" 
50 PRINT AT 21,285 INK 65CHR$ 143;CHR$ 143;CHR$ 143 









La línea 20 pone los valores iniciales para la velocidad, altura, 
grado de caída y distancia de la nave a la pista. En la línea 30 
se almacenan cinco espacios en la cadena c$, que 
utilizaremos luego para borrar de la pantalla los valores 
antiguos del panel de control. El panel de control se imprime 
en la línea 40. Las órdenes INK producen diferentes colores 
en el panel. No olvides colocar el espacio detrás de cada 
palabra; es para que la línea quede colocada adecuadamente 
en la pantalla. Por último, la pista de aterrizaje se imprime en 
la línea 50, usando la orden INK para obtener color y con 
tres CHR$143 para formar un bloque sólido. Como antes, 
puedes usar los caracteres gráficos directamente, en lugar de 
los códigos CHR$. 
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60 LET x=0: LET y=3 
AT 


CHRÍ 142 CHRÉ140 


La posición de la nave en la pantalla se da por medio de las 
coordenadas X e Y de la línea 60. que indican la columna y 
la fila en que se encuentran. (Recuerda que la fila viene 
primero en las órdenes PRINT AT.) La nave se representa 
con bloques gráficos obtenidos con CHR$, coloreados con 
INK. ; 














EEES 


NNNNNNNN 


Las líneas 80 a 150 imprimen los valores de la velocidad, 
grado de caída, altura y distancia a la pista, usando la orden 
PRINT AT para colocarlos debajo de su correspondiente 
cabecera en el panel de control. De nuevo se usa INK para 
colorearlos. La cadena c$ de las líneas 80, 100, 120 y 140 
utiliza los cinco espacios almacenados en la línea 30 para 
borrar los antiguos valores antes de imprimir los nuevos. Dará 
la impresión de un panel de control en funcionamiento a 
medida que la nave se aproxime a la pista de aterrizaje. Este 
método de sobreimprimir partes de la pantalla se usa a 
menudo en los programas para producir gráficos en 
movimiento. 


















160 IF v<200 THEN PRINT AT 109,55"EL MOTOR SE TE HA 
, PARADO": STOP E E 
e 170 IF d<-999 THEN PRINT AT 10,0;3"EL COHETE SE HA PASADO": E ES 


sTOP SS 
p 


180 IF a<=0 THEN GO TO 290 





Las líneas 160 a 180 comprueban que la velocidad no sea 
demasiado baja y que la nave no se haya pasado de la pista 
en un valor mayor de 999. La línea 180 comprueba si la nave 
ha llegado a una altura cero, en cuyo caso el programa salta 
a la línea 290, donde una comprobación final decide si la 
nave ha aterrizado en la pista. 


e 
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LET r$=INKEYS 
IF r$="z" THEN LET f=f+1: LET v=v+5 

210 1F r$="m" THEN LET f=f-1: LET v=v-S5 

1F £$=0 THEN LET f=1: LET v=v-20 

LET a=a-$21 LET v=v+(f-5)*3: LET d=d-INT (v/10) 
240 PRINT AT y,x3c$ 

LET x=27-INT (d/(18009/28)) 

260 LET y=20-INT (a/(2000/18)) 

270 PRINT AT y,x3 INK 13CHR$ 1423CHR$ 140 

60 TO 80 


O 
O 







O 
NN 
UN 
Sos 
So 


O 
N 
un 
9 







O 
N 
0 
S 
O 





Desde la línea 190 hasta la 280, el programa permite al 
jugador controlar el descenso de la nave y hace los cambios 
en el vuelo de la nave de acuerdo con las direcciones 
introducidas. En la línea 190, la orden INKEYS le dice al añ 
ordenador que examine el teclado y vea si se ha pulsado | 100 
alguna tecla. Cualquier tecla que se pulse se almacena en ED. y 
Las líneas 200 y 210 comprueban si en r$ hay una “2” o una (95 VALORES o O 


“m” (que significan acelerar y frenar respectivamente), en DELAS LÍNEAS E QUE 
cuyo caso se modifican los valores de los indicadores de "y 260 SON TA 
acuerdo con la tecla pulsada. La orden INKEY$ permite al vi vÉ£ NUNC 
programa continuar su ejecución sin tener que pararse y TSE ¡MPRIMIRA 
esperar la introducción de un dato, como hace INPUT. En FUERA DE 

la lnea 220 el programa se asegura de que el grado de PANTALLA 


descenso nunca sea cero (si así fuera, la nave se pararía del 
todo) La línea 230 calcula los nuevos valores de altura, 
velocidad y distancia, para ser imprimidos en el panel de 
control. La línea 240 borra la antigua posición de la nave con 
los espacios almacenados en c$. Los nuevos valores de las 
coordenadas X e Y se calculan en las líneas 250 y 260, 
usando los nuevos valores de distancia y altura. La línea 270 
dibuja la nave en su nueva posición y en la 280 el programa 
vuelve a buscar otra entrada. 




















IF d>1000 THEN PRINT AT 10,55 "ATERRIZAJE 
DEFECTUOSO": STOP 
300 IF v>300 THEN PRINT AT.10,53 "DEMASIADA 





VELOCIDAD !!"z STOP 
310 IF $>5 THEN PRINT AT 10,5;"TREN DE ATERRIZAJE 
ROTO": STOP 
320 PRINT AT 10,03 "ATERRIZAJE PERFECTO !!!" 
330 STOP 


Por último vienen los mensajes de finalización. Se comprueba 
que el aterrizaje no sea demasiado lejos de la pista, y que ni 
la velocidad ni el grado de caída sean demasiado altos. 
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Mejora tus programas 

Por último, vamos a juntar los tres programas en uno. Hay 
algunas modificaciones en el listado que sigue a continuación, 
en las líneas marcadas con un asterisco. Antes de unir los tres 
programas, debes cambiar los números de las líneas de los 
programas segundo y tercero. 





Unión de los programas 


En la línea 3000 se ha añadido una subrutina cuya misión es 
imprimir un mensaje de ALERTA en la pantalla, y algunos 
sonidos, cada vez que se pasa de una sección del programa a 
otra. En las líneas 440 y 1440 el programa llama a esta 
subrutina, y las líneas 430 y 1430 indican la palabra que va a 
aparecer en el mensaje en cada caso. 


Listado de los programas 













COMMODORE 
S FEM TIESPEGUE TEL COHETE 
AB) FRIHNT CHR$c147) 
A FRINT =F 0 "DESPEGUE" 
a RR IT PEEL ===> Mela" 
A PRIHTSPI "EL COHETE ESTA PREPARADO" 
A PRIMTSPC NMEFES HACERLO DESPEGAR" 
A PRINTS "BMEGOLO TIENES 14 INTENTOS !!/3" 
A PRINTSPCOSO "BEPOR FAYOR. TECLEA TU NOMBRE" 
a PERIMTSP! 2 PLUILSA RETURMNMO" 





THEPLTADE 

FRIHNT CHEFC1477 

PRINT"MMETEN VENIDO A BORDO CAPITAN ";HO* 
PRINTSPEOS 05 "EMFARA HACER DESPEGAR EL COHETE" 

PRINTSPOCS "MMMEBES ADIMIMAR EL HIYEL DE ” 

PRINTS 0 "RBENHERGIA HECESARIO" 

FEINTS 30 "BCAA HLIMERO ENTRE 1 57 1005" 

PRINTSPOCS 0 "EBTECLEA EL HIMERO Y PULSA RETURN" 

HI=INTIR ADA) 

FORIN=1 TO 14 

FRIHT" AB SAO c117" INTENTO MUMERO "IH'"08181" 
IHPLIT" 1 ¿HL 

IF HU=NI THEH GOTO 224 

IF HU <HI THEH PRINTEC AL, DEMASIADO EAJO, FEUEBA UTEA YWEZTT" 
IF O HLSHI THEN FRINTSPELPO NU". DEMASIADO ALTO, FPEUEBE OTEM “EZTI" 
HET IH 

PRINTOARE 147 

PRINTSPCEZO: "MABABBRÉHAS FALLADO TUS 16 IHTENTOS !" 
FRINT"EENTECLEA “RUN CFRETURNS FARA JUGAR OTRA “Ez” 

3TOF 

FRINTCOHES01470 

AL=5 












un 





AA AA A A DI IA 


AA O 





LO A + 0 A A A AR A LA O AA A AAA a AR O A As a AÁ 


Pa Pe PA DA PA PAPA PLA PA A AA A a A A pe ps ps ps 


o] 


























Continuación Commodore 


500 0B=1H400 
316 PRINTSPCC14O 5 "EMMDBELEYACIÓN!) 11" 
3268 PRIMTSPEOC16)5 "MSRÉÑALTITLIDA" 
FEINTSPEOC16): "TAL 
FOR EE=1 TO 304 
HEWT FE 
AL=ALA2+1 pl 
5630 FPUÚKE al POKE 54278.91:POKE 54296, 15:POKE 34278, 122 
" POKE 54273, AL“E65: FOR T=6 TO Em: HET 
ALE ALA -08 THEN GOTO 330 
FPOKE 2427, 127 
FEINTECHREC1477 
FORFI=1T015 
PRINTSPEC110: "COHETE EN OREITA!! 1!" 
A HERTFI 
PRINTER. ERMHORRENERA CAFITAN ";HOg 
Fé="ASTEROIDES" 
GOSUB 26064 
REM ASTERDIDES 
FERIMNTECHRE 1470 
DIM COSA, FICOO) 
! LIDS= n ANA EINNDRAN y 





A a a AA 


e 
a! 









EE 646, ERE L / 
PRINTLEFTECUDE. FICASI+19SPOCCOCA 
HET AS 
A í qn ”" 
CO=A4:FI=INTERHDCA REZA 
FPERIMNTLEFTECLUOE, FISSPELCO 0" 
PEIHT" 30" CE 
FEINTOS 
PEINT"STIEMPO: "MIDES TIF. 3.220 MINUTOS 6%; 
FEINTRIGHTETIF, 22" SEGUNDOS" 
IF YALCMIDE (TIE 4 10032 THEM 1338 
THEFT "DIRECCION ¿HORTE., SUE.ESTE? "¡DIS 
IF Dls="HN" THEN AE=-1:TDE=9:GOTO 12146 
IF Dlé="5" THEN AR=1: DE=4:G0T0 1214 
IF Dié="E" THEH AR=4:DE=1:60T0 1219 
GOTO 1125 
THPLUT"DISTAHCIA": DI 
FEIMTLEFTE CUIDE, FIS S POLEO "Or 
FORE=1T0D1 
FI=FI+HE: 
Co=E0+ TE 

FORAS=1T054 
A IF CO=COL ASA AHD FI=FICAS>? THEH 1374 

ZO (ADO AND FI=sFICASI+1 THEN 1370 

(AS + 1 AND FI=FICAS: +1 THEH 1379 


GN 


E A as as as as e 


E 
py 


1 
Z 
E 
E 
4 
s 
a 
E 
E 
4 
2 
2 


eS 
a 





a 
DUDO 


a 
a 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


Ro Da LAN + A A O 


pl po pudo pudo pd por o Judo Jo polo pl Jr pa pd ps pd pl pur pd jo ja e ps par pap 
za 
E E 


a) 





CE 







LE FI>24 DR FIzd THEH 1329 

A PEIMTLEFTE<LIOE,)FI2SPELEOO "o" 

IF C0233 THEH 14109 

HEXTE 

GOTO 1110 

FEIAT" TATeetea EL FUEL SE HA ACABATIO" 
PEIAT" Em Y QUEDARAS EH EL ESPACIO PARA SIEMPRE" :STOP 
FEIANT" matara HAS CHOCADO CON UN ASTEROIDE" 
A PRINT"HM TU HAYE ESTA DESTROZADA": STOP 

A FEIMT" TAM iasistal TE HAS SALIDO DE OREITA" 
PEIMT" Y TE PTERDES EH EL ESPRETO” STOP 
FEIAT" Taaasate taaan LOS HAS ESPUIVADO BIEH!!" 
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Continuación Commodore 


1426 PERIHT" Te ERES LH BUEN PILOTO ESPACIAL" 
:1934 FF="RATERRIZAJE" 
A GÓSUE 3A0a 

REM ATERRIZAJE 
PRINT"2" 

D=1 3006: =400 0 A=2600:F=3 

Cé=" ” 
DESIL EDO 
FEINT"E ALTURA  ACAITIA MELO. —BDISTANCIA" 
FEIHTLEFTECUDS, 2935 PEC350 "MA . 
¡== 3 
FEIMTLEFTE CUIDE, 1+195PC22050 "Ma SL" 
FE IMT" 818] io 
FEIHT" an A 
PRINTS SPoc1i3oc 
FEIMNT"AS:MA" 
FRIMT" SAR" =P 
FEIHT" ETS" 
FRIMT" SA" 
PERIAT" mas LEO 

TEWIZAE THEHPRIHTLEFTEC UNE, 1193 POC120 "SEL MOTOR SE HA PARADO": STOP 
E 399 THEH FEINTLEFTECUDE.,11:"3 El COHETE SE HA PASADO":ST0F 


THEH 2220 












PL UT 
Za IE IE 





2 a! 
A 
A 


















A 





GET EF 
IF E3="A" THEH F=F+1:=4+5 
IF R3="D" THEH F=F-1:4=w-3 
IF F=4 THEH F=1:=4-24 
A=A-F: a T--1 


HT¿Y/105 
ALE 







PRIMTLEFTE: LD.” 
a=30-IMT< DI" 1200 
THTIA AE ZABE 


TEL 


PRINTLEFTS CUIDE. oleada 












IF 11668 THEH PEIHT LEFT*cUDS. 112 ATERRIZAJE DEFECTUOSA": ENT 
IF 3366 TREH PFRIRTLEFTECUDE,11"3 TIEMASIADA VELOCIDAD!" END 
IF FSSTHEH FREIMNTLEFTECLUDE,11>"3 TREH DE ATERRIZAJE ROTO": EMT 
PERIMHTLEFTEL UDE. 113 ATERRIZAJE PERFECTO! !11":EHND 

REM tia : 

FORE=1T03 
HEXWT E 
PUERES42T6, 122 

a PRINT"J" 

FORL=1T020 

FPEIHT" ALERTA! CAMPO DE "Fe"l11" 
HEXT L 

FORE=1 TOA 

HET E 

POKES42 76.125 


EETURH 





IE E E E E E 





SPECTRUM 


REM despegue del cohete 
CLS 
PRINT 4,10; "DESPEGUE" 


PRINT 


PRINT 8, 45 "EL COHETE ESTA PREPARADO" 

PRINT 10,4; "DEBES HACERLO DESPEGAR" 

PRINT 13,13 INK 23 FLASH 13"solo tienes 10 intentos" 
PRINT 16,33"POR FAVOR, TECLEA TU NOMBRE" 

PRINT 18,23"Y PULSA ENTER" 

INPUT 

ES 





42 











110 
120 
130 
140 
150 
150 
170 
180 
«185 
190 
195 
200 
210 
220 
230 
240 
250 
260 
270 
280 
290 
300 
310 
320 
330 
340 
350 
360 
* 365 
370 
380 
390 
400 
410 
420 
*430 
+ 440 
10900 
1010 
10920 
1030 
1940 
1050 
* 1055 
*1060 
«1065 
1070 
1100 
1110 
11650 
1170 
1180 
1190 
1200 
1210 
1220 
1230 
1240 
1250 
1260 
1270 
1280 
1285 
1290 
1300 



























Continuación Spectrum 





PRINT "BIENVENIDO A BORDO": PRINT "CAPITAN "3n$ 
PRINT AT 4,1;3"PARA HACER DESPEGAR EL COHETE" 
PRINT AT 6,1;”DEBES ADIVINAR EL NIVEL DE” 

PRINT AT 8,153 "ENERGIA NECESARIO" 

PRINT AT 10,13"”(UN NUMERO ENTRE 1 Y 100)" 

PRINT AT 12,1;3"TECLEA EL NUMERO Y PULSA ENTER" 
LET mivel=INT (RND*100)+1 

FOR i=1 TO 10 

PRINT AT 16,83 INK 23 FLASH 13"INTENTO NUMERO "5i 
INPUT num 

PRINT AT 17,163num;5" ” 


IF num=nivel THEN GO TO 280 

IF num<nivel THEN PRINT AT 20,13"DEMASIADO BAJO, PRUEBA OTRA VEZ" 
IF num»mivel THEN PRINT AT 20,13"DEMASIADO ALTO, PRUEBA OTRA VEZ" 
NEXT i 

CcLs 

PRINT AT 4,0;3"HAS FALLADO TUS 10 INTENTOS" 

PRINT AT 6,05 "TECLEA ”*RUN? (ENTER) PARA JUGAR"5AT 7,03"OTRA VEZ" 
sTOP 

ELS 

LET altitud=09 

LET objetivo=10000 

PRINT AT 2,10;3"ELEVACION !!!!!” 

PRINT AT 10,105"ALTITUD" 

PRINT AT 10,20;a1ltitud 

FOR r=1 TO 100 

NEXT r 

LET altitud=altitud*2+1 

BEEP .5,30 

IF altitud<objetivo THEN GO TO 330 

CcLs 

FOR r=5 TO 10 

PRINT AT r,83"COHETE EN ORBITA !" 

NEXT r 

PRINT AT 15,15"ENHORABUENA CAPITAN "3n$ 

LET £$="ASTEROIDES" 

GO SUB 3000 

REM asteroides 

CLS 

DIM c(50): DIM +(50) 

FOR s=1 TO 50 

LET c(s)=INT (RND*26)+3 

LET £(s)=INT (RND*18)+2 

LET xxx=INT (RND*7) 

PRINT AT £f(s),c(s)3 INK xxx53CHRS 132 

PRINT AT f(s)+1,c(s)3 INK xxx53CHR$ 1355CHR$ 130 

NEXT s 

LET col=0: LET fila=2+INT (RND*18) 

PRINT AT fila,col3"X" 

INPUT "DIRECCION (morte,sur,este) "3d% 

IF d$="n" THEN LET arriba=-1: LET derecha=90: GO TO 1210 
IF d$="s" THEN LET arriba=1: LET derecha=9: GO TO 1210 
IF d$="e" THEN LET arriba=0: LET derecha=1: GO TO 1210 
GO TO 11450 

INPUT "DISTANCIA "3distancia 

PRINT AT fila,col3”oO" 


FOR c=i TO distancia 

LET fila=fila+arriba 

LET col=col+derecha 

FOR s=1 TO 50 

IF col=c(s) AND fila=f(s) THEN GO TO 1370 

IF col=c(s) AND fila=f(s)+1 THEN GO TO 13709 
IF col=c(s)+1 AND fila=f(s)+1 THEN GO TO 1370 
NEXT s 

IF fila>20 OR fila<2 THEN GO TO 1390 
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Continuación Spectrum 


1310 
1320 
1330 
1340 
1370 
1380 
1390 
1400 
1410 
1420 
1430 
1440 
2000 
2010 
2020 
2030 
2040 


* 


* 


2050 
2060 
2070 
2080 
2090 
2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 
2180 
2190 
2200 
2210 
2220 
2230 
2240 
2250 
2260 
2270 
2280 
2290 
2300 
2310 
2320 
2330 
*3000 
*3010 
*3020 
*3050 
*3060 
3065 
*3070 
«3080 
* 3090 
*3095 
*3100 
*3110 





PRINT AT fila,col3"0O" 

IF col>30 THEN GO TO 1410 
NEXT c 

GO TO 1110 


CLS : PRINT AT 10,0;"HAS CHOCADO CON UN ASTEROIDE" 
PRINT AT 13,03"TU NAVE ESTA DESTROZADA": STOP 

CLS : PRINT AT 10,0;"TE HAS SALIDO DE ORBITA" 
PRINT AT 13,0;3"Y TE PIERDES EN EL ESPACIO": STOP 
CLS : PRINT AT 10,0;"LOS HAS ESQUIVADO BIEN !!" 
PRINT AT 20,0;"ERES UN BUEN PILOTO ESPACIAL" 

LET £$="ATERRIZAJE” 


GO SUB 3000 

REM aterrizaje del cohete 

ELS y 

LET d=18000: LET v=400: LET a=2000: LET +=5 

LET cs$=" . 

PRINT AT 1,03 INK 23 "ALTURA "3 INK 43"CAIDA "3 INK 33"VELOCIDAD "; 


INK 15"DISTANCIA” 

PRINT AT 21,283 INK 65CHR$ 143;3CHR$ 143; CHRs 143 
LET x=0: LET y=3 

PRINT AT y,x3 INK 13CHR$ 142;3CHR$ 140 

PRINT AT 2,13c% 

PRINT AT 2,13 INK Z3a 

PRINT AT 2,93c% 

PRINT AT 2,93 INK 434 

PRINT AT 2,153Cc$ 

PRINT AT 2,153 INK 33v 

PRINT AT 2,253c%$ 

PRINT AT 2,253 INK 13d 

IF v<200 THEN PRINT AT 10,5;3"EL MOTOR SE TE HA PARADO": STOP 
IF d<-999 THEN PRINT AT 10,03"EL COHETE SE HA PASADO": STOP 
IF a<=0 THEN GO TO 2290 

LET r$=INKEYS$ 

IF r$="z" THEN LET f=f+1: LET v=v+5 

IF rs$="m" THEN LET 4=*-1: LET v=v-5 

IF 4=0 THEN LET f=1: LET v=v-20 

LET a=a-*%:2 LET v=v+(f-5)*%3: LET d=d-INT (v/10) 
PRINT AT y,xic$ 

LET x=27-INT (d/(18000/28)) 


LET y=20-INT (a/(2000/18)) : ¡ 
PRINT AT y,x3 INK 15CHR$ 1423CHR$ 140 e 
GO TO 2080 

IF d>1000 THEN PRINT AT 10,5; "ATERRIZAJE DEFECTUOSO": STOP 

IF v>300 THEN PRINT AT 10,55 "DEMASIADA VELOCIDAD !!":z STOP 

IF 4£>5 THEN PRINT AT 10,5;"TREN DE ATERRIZAJE ROTO": STOP 

PRINT AT 10,03 "ATERRIZAJE PERFECTO !!!" 

sToOP 

REM 

FOR r=1 TO 1000 

NEXT r 

CuS 

FOR 1=1 TO 20 


BEEP .25,40 
PRINT AT 1,23 INK 25 FLASH 13"ALERTA ! CAMPO DE "34$ 
NEXT 1 
FOR r=i TO 30 
BEEP .25,40 
NEXT r 
RETURN 3 


dido oiiooe] 











_ ESTA NUEVA SERIE CONSTITUYE UNA INTRODUCE JONA 
_ELARTEDE PROGRAMAR ORDENADORES. CADA L ¡BRO 
ENSEÑA CÓMO ESTRUCTURAR UN PROGRAZA a 
RUTINAS, Y AL MISMO TIEMPO EXPLICA Y _ Y 
ANALIZA LO QUE SE LE PIDE AL ORDENADOR 
QUE HAGA Y POR e. E 






Y ADEMÁS ES DIVERTIDO! CADA LIBRO CONTIENE 
como MÍNIMO UN JUEGO PE ORDENADOR, Y 
ES -APASIONANTE Y ORIGINAL, ESTRUCTURADO E 

PE TAL MOPO QUE PUEDE AMPLIARSE 
O REDUCIRSE, DE ACUERDO CON EL NIVEL 


ghOS DESEOS DEL USUARIO. 
E 
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